home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EuroCD 3
/
EuroCD 3.iso
/
Programming
/
Amos
/
Pic_Packer.AMOS
/
Pic_Packer.amosSourceCode
Wrap
AMOS Source Code
|
1998-06-24
|
616b
|
32 lines
'*** SIMPLY PACKS A PICTURE ***
'* Alastair Murray 1997 (written 1995)
'* E-Mail: pmymagm@pmn1.maths.nott.ac.uk
'* Web Page: http://www.cs.nott.ac.uk/~agm/
'* Including More AMOS stuff
Z$=Dir$
PIC_PACKER
Dir$=Z$
Procedure PIC_PACKER
Do
Erase All
A$=Fsel$(Dir$,"","Pick Picture To Be Packed")
If A$="" Then End
Load Iff A$,0
Wait Vbl
Spack 0 To 10
A$=Fsel$(Dir$,"","Pick File To Save To")
If A$="" Then Pop Proc
If Exist(A$)=-1 Then Kill A$
Save A$,10
Wait 100
Screen Close 0
Erase All
Loop
End Proc